home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / ansi_d.zip / ANSI-D.PPE (.txt) next >
PCBoard Programming Language Executable  |  1993-04-07  |  1KB  |  128 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     INTEGER001 = 2
  30.     STRING003 = " "
  31.     BOOLEAN002 = 0
  32.     PrintLn "Testing your system capability..."
  33.     If (OnLocal()) Goto LABEL001
  34.     Print Chr(27) + "[6n"
  35.     Print "     "
  36.     WaitFor Chr(27) + "[", BOOLEAN001, INTEGER001
  37.     Goto LABEL002
  38.     :LABEL001
  39.     BOOLEAN001 = -1
  40.     :LABEL002
  41.     STRING002 = "Do you want graphics (Enter)="
  42.     STRING004 = ReadLine(PCBDat(), 257)
  43.     If (BOOLEAN001) Then
  44.         STRING002 = STRING002 + "yes"
  45.         InputStr STRING002, STRING001, 7, 6, " ;YQNS", 410
  46.         If (STRING004) Goto LABEL005
  47.         Tokenize STRING001
  48.         :LABEL003
  49.         If (STRING003 == "") Goto LABEL004
  50.         GetToken STRING003
  51.         If (STRING003 == NoChar()) BOOLEAN002 = 1
  52.         Goto LABEL003
  53.         :LABEL004
  54.         If (!BOOLEAN002) STRING001 = YesChar() + ";" + STRING001
  55.         :LABEL005
  56.     Else
  57.         STRING002 = STRING002 + "no"
  58.         InputStr STRING002, STRING001, 7, 6, " ;YQNS", 410
  59.         If (STRING004) Then
  60.             Tokenize STRING001
  61.             :LABEL006
  62.             If (STRING003 == "") Goto LABEL007
  63.             GetToken STRING003
  64.             If (STRING003 == YesChar()) BOOLEAN002 = 1
  65.             Goto LABEL006
  66.             :LABEL007
  67.             If (!BOOLEAN002) STRING001 = NoChar() + ";" + STRING001
  68.         Endif
  69.     Endif
  70.     KbdStuff STRING001
  71.     End
  72.  
  73. ;------------------------------------------------------------------------------
  74. ;
  75. ; Usage report (before postprocessing)
  76. ;
  77. ; ■ Statements used :
  78. ;
  79. ;    1       End
  80. ;    10      Goto 
  81. ;    12      Let 
  82. ;    2       Print 
  83. ;    1       PrintLn 
  84. ;    10      If 
  85. ;    2       InputStr 
  86. ;    2       Tokenize 
  87. ;    2       GetToken 
  88. ;    1       KbdStuff 
  89. ;    1       WaitFor 
  90. ;
  91. ;
  92. ; ■ Functions used :
  93. ;
  94. ;    1       -
  95. ;    8       +
  96. ;    4       ==
  97. ;    8       !
  98. ;    2       Chr()
  99. ;    2       NoChar()
  100. ;    2       YesChar()
  101. ;    1       PCBDat()
  102. ;    1       ReadLine()
  103. ;    1       OnLocal()
  104. ;
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Analysis flags : d
  108. ;
  109. ; d - Access PCBOARD.DAT ■ 2
  110. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  111. ;     for many PPE so they can find various informations on the system
  112. ;     (system paths, max number of lines in messages, ...) but it may also
  113. ;     be a way to gather vital informations.
  114. ;     ■ Search for : PCBDAT()
  115. ;
  116. ;------------------------------------------------------------------------------
  117. ;
  118. ; Postprocessing report
  119. ;
  120. ;    0       For/Next
  121. ;    0       While/EndWhile
  122. ;    2       If/Then or If/Then/Else
  123. ;    0       Select Case
  124. ;
  125. ;------------------------------------------------------------------------------
  126. ;                 AEGiS Corp - Break the routines, code against the machines!
  127. ;------------------------------------------------------------------------------
  128.